home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / SNARLS.bas < prev    next >
BASIC Source File  |  2019-02-17  |  836b  |  15 lines
  1. 10  REM ****************************************
  2. 20  REM *                                      *
  3. 30  REM *  Sn@ils  in space!                   *
  4. 33  REM *  BY  Tim Boehme                      *
  5. 34  REM *                                      *
  6. 35  REM ****************************************
  7. 37  REM <CTRL-J><CTRL-J>
  8. 40  TEXT : HOME :H = 20: PRINT  CHR$(21): POKE 35,22
  9. 50 K =  PEEK(49152): ON K <128 GOTO 80:H = H +(K = 149) -K = 136
  10. 80  POKE 49168,0: IF  RND(1) *10 <1  THEN  VTAB 20: HTAB  RND(1) *20 +10: PRINT "@": GOTO 120
  11. 100  VTAB 22: HTAB  RND(1) *39 +1: PRINT  CHR$(46)
  12. 110  IF  PEEK(1535 +H) = 192  THEN S = S +1: VTAB 5: HTAB H: PRINT "#"; CHR$(7): VTAB 23: PRINT "Munched:";S: GOTO 140
  13. 120  VTAB 5: HTAB H: PRINT "V"
  14. 140 T = T +1: IF S <10  THEN 50
  15. 150  TEXT : VTAB 23: PRINT S;" Sn@ils munched in ";T;" Titan Sec.": END